string->anyatom   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/init.xtm

Implementation

(define (string->anyatom str pred)
  (let* ((a (string->atom str)))
    (if (pred a) a
        (error "string->xxx: not a xxx" a))))


Back to Index